Private Sub TextBox1_Change()

    ListBox1.List = Filter(̸, TextBox1.Text, True)
    Label2.Caption = " : " & ListBox1.ListCount

End Sub